# StartTCL: n
#
#
# Name:		Forms.tcl
#
# Description:	3rd party commands and procedures
#
#
# Created by Tha-Doctor
# FileServing Now WoW Services,
# - The Devolepment On Bugs
#

namespace eval FSN_Forms {
  set loadinfo "FSN_Form scrips loaded..."
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:$loadinfo" 
}

# Aquatic Form - Alliance
# Level 16
# Price: 18000
# Info: Shapeshift into aquatic form, increasing swim speed by 50% and allowing the druid to breath underwater.
namespace eval DruidFormAquatic_A {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 11)&&($GLevel >= 16) } {
      if { ($GRaces == "1") || ($GRaces == "3") || ($GRaces == "4") || ($GRaces == "7") } { CastSpell $player $player 1066 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Aquatic Form (Alliance)"
}

# Aquatic Form - Horde
# Level 16
# Price: 18000
# Info: Shapeshift into aquatic form, increasing swim speed by 50% and allowing the druid to breath underwater.
namespace eval DruidFormAquatic_H {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 11)&&($GLevel >= 16) } {
      if { ($GRaces == "2") || ($GRaces == "5") || ($GRaces == "6") || ($GRaces == "8") } { CastSpell $player $player 1066 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Aquatic Form (Horde)"
}

# Tree Form - Alliance
# Level 44
# Price: 1540000
# Info: Shapeshift into a tree form, removing all harmful physical effects and protecting from all physical attacks for 8 sec, but during that time you cannot attack, move or cast spells.
namespace eval DruidFormTree_A {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 11)&&($GLevel >= 44) } {
      if { ($GRaces == "1") || ($GRaces == "3") || ($GRaces == "4") || ($GRaces == "7") } { CastSpell $player $player 775 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Tree Form (Alliance)"
}

# Tree Form - Horde
# Level 44
# Price: 1540000
# Info: Shapeshift into a tree form, removing all harmful physical effects and protecting from all physical attacks for 8 sec, but during that time you cannot attack, move or cast spells.
namespace eval DruidFormTree_H {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 11)&&($GLevel >= 44) } {
      if { ($GRaces == "2") || ($GRaces == "5") || ($GRaces == "6") || ($GRaces == "8") } { CastSpell $player $player 775 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Tree Form (Horde)"
}

# Furbolg Form
# Level 16
# Price: 18000
# Info: Transforms you into a Furbolg for 3 min.
namespace eval ShamanFormFurbolg {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 7)&&($GLevel >= 16) } {
      if { ($GRaces == "2") || ($GRaces == "5") || ($GRaces == "6") || ($GRaces == "8") } { CastSpell $player $player 6405 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Furbolg Form"
}

# Owl Form
# Level 20
# Price: 124000
# Info: Transforms you into an Owl.
namespace eval ShamanFormOwl {
  proc QueryQuest { npc player questid } {
    set Glasse [GetClass $player]
    set GLevel [GetLevel $player]
    set GRaces [GetRace $player]
    if { ($Glasse == 7)&&($GLevel >= 20) } {
      if { ($GRaces == "2") || ($GRaces == "5") || ($GRaces == "6") || ($GRaces == "8") } { CastSpell $player $player 8153 }
    }
  }
  puts "[clock format [clock seconds] -format %H:%M:%S]:M:- Loaded: Owl Form"
}
